Program Fungsi Parameter (Forleaf) di Delphi7

Langkah-Langkah Membuat Program Fungsi Parameter (Forleaf):

1. Tambahkan 1 Button

2. Klik 2 Kali Pada Button

3. Masukan Koding di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var r,d,c,x,y,theta,thetf: real;

 a,xc,yc:integer;

begin

 a:=100;xc:=300;yc:=200;

 thetf:=0.0;

 d:=2*PI;

 theta:=d;

 c:=1/a;

 while (thetf<theta) do

begin

 r:=a*cos(2*thetf);

 x:=r*cos(thetf);

 y:=-r*sin(thetf);

canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clblue;

thetf:=thetf+c;

end;

end;

end.

4. Jalankan Programnya 

Demikianlah cara membuat program Elips Midpoint. selamat mencoba semoga berhasil.

Jangan lupa ikuti terus informasi dan berita terupdate di blog herawan09.blogspot.com. sampai bertemu di konten selanjutnya brody.

Baca Juga : Cara Mengecek Pengguna Wifi di Tp-link TL-WRB20N di PC

     

                   Program Fungsi Parameter (Cardiod) di Delphi7

Langka-Langkah Membuat Program Fungsi Parameter :

1. Tambahkan 1 Button 
2. Selanjutnya Klik 2 kali Pada Button 
3. Kemudian Masukan Koding di bawah ini :

        procedure TForm1.Button1Click(Sender: TObject);

        var r,d,c,x,y,theta,thetf: real;

         a,xc,yc:integer;

         begin

         a:=100;xc:=300;yc:=200;

         thetf:=0.0;

         d:=2*PI;

         theta:=d;

         c:=1/a;

         while (thetf<theta) do

         begin

          r:=a*(1+cos(thetf));

          x:=r*cos(thetf);

         y:=-r*sin(thetf);

         canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clblue;

         thetf:=thetf+c;

         end;

         end;

         end.

        4. Langkah Selanjutnya Jalankan Program

 

Demikianlah cara membuat program Elips Midpoint. selamat mencoba semoga berhasil.

Jangan lupa ikuti terus informasi dan berita terupdate di blog herawan09.blogspot.com. sampai bertemu di konten selanjutnya brody.

Baca Juga : Program Fungsi Parameter (Forleaf) di Delphi7

 

    Membuat Program Elips Midpoint di Delphi7

    Langkah-Langkah Membuat Program Elips Midpoint :

1. Siapkan 1 Tombol Button
2. Kemudian klik 2 kali pada Button
3. Lalu ketik Koding dibawah ini :

        procedure TForm1.Button1Click(Sender: TObject); 

        var x,y,xc,yc,rx,ry,p,px,py,ry2,rx2,tworx2,twory2:integer; 

        begin

         ry:=150;rx:=76;xc:=400;yc:=200; ry2:=ry*ry; rx2:=rx*rx; twory2:=2*ry2;

         tworx2:=2*rx2; x:=0; y:=ry; canvas.Pixels[xc+x,yc+y]:=clblack; 

         canvas.Pixels[xc+x,yc-y]:=clblack; canvas.Pixels[xc-x,yc+y]:=clblack;

         canvas.Pixels[xc-x,yc-y]:=clblack; p:=abs(trunc(ry2-rx2*ry+(0.25*rx2))); 

         px:=0; py:=tworx2*y; while(px=0) then

         begin

         y:=y-1; py:=py-tworx2;

         end; 

         if (p<0)then p:=p+ry2+px else p:=p+ry2+px-py; 

         canvas.Pixels[xc+x,yc+y]:=clblack; 

         canvas.Pixels[xc+x,yc-y]:=clblack; 

         canvas.Pixels[xc-x,yc+y]:=clblack; 

         canvas.Pixels[xc-x,yc-y]:=clblack; 

         end; 

         p:=trunc(ry2*(x+0.5)*(x +0.5)+rx2*(y-1)*(y-1)-rx2*ry2); 

         while(y>0)do begin y:=y-1; py:=py-tworx2;

         if (p<=0)then begin x:=x+1; px:=px+twory2; 

         end; if (p>0)then p:=p+rx2-py else p:=p+rx2-py+px; 

         canvas.Pixels[xc+x,yc+y]:=clblack; canvas.Pixels[xc+x,yc-y]:=clblack; 

         canvas.Pixels[xc-x,yc+y]:=clblack; canvas.Pixels[xc-x,yc-y]:=clblack; 

         end; 

         end; 

         end. 

        4.  Kemudian Jalnkan Programnya.

Demikianlah cara membuat program Elips Midpoint. selamat mencoba semoga berhasil.

Jangan lupa ikuti terus informasi dan berita terupdate di blog herawan09.blogspot.com. sampai bertemu di konten selanjutnya brody.

Baca Juga : Program Fungsi Parameter (Cardiod) di Delphi7

    

    

     

    Membuat Program Elips Simetri 4X di Delphi7

Langkah-Langkah Membuat Program Elips Simetri 4X :

1. Tambahkan 1 Button 
2. Masukan Koding Di bawah ini :

        procedure TForm1.Button1Click(Sender: TObject);

        var d,c,x,y,theta,thetf:real;

         xc,yc,r,r2:integer;

         begin

         xc:=300;yc:=200;r:=150;r2:=130;

         thetf:=0.0;

         d:=2*PI;

         theta:=d/4;

         c:=1/(r);

         while (thetf<theta)do

         begin 

         x:=r*cos(thetf);

         y:=r2*sin(thetf); 

         canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clblue; canvas.pixels[trunc(xc+x),trunc(yc-y)]:=clblue;             canvas.pixels[trunc(xc-x),trunc(yc+y)]:=clblue; canvas.pixels[trunc(xc-x),trunc(yc-y)]:=clblue;             canvas.pixels[trunc(xc+y),trunc(yc+x)]:=clblue; canvas.pixels[trunc(xc+y),trunc(yc-x)]:=clblue;             canvas.pixels[trunc(xc-y),trunc(yc+x)]:=clblue; canvas.pixels[trunc(xc-y),trunc(yc-x)]:=clblue;             thetf:=thetf+c; 

         end; 

         end; 

         end.

        3.  Setelah koding di masukan kemudian jalnkan programnya.

Demikianlah cara membuat program  Elips Simetri 4X di Delphi7  selamat mencoba semoga berhasil.

Jangan lupa ikuti terus informasi dan berita terupdate di blog herawan09.blogspot.com. sampai bertemu di konten selanjutnya brody.

 Membuat Animasi Tulisan Berjalan di delphi7

Berikut Langka-langkah membuat Animasi tulisan berjalam :

1. Tambahkan 1 Tpanel

2. Tambahkan 1 label 

3. Tambahkan 1 Timer 

4.  Klik 2x pada timer, kemudian tuliskan coding dibawah ini:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

    Label1.Left:=Label1.left-1;

    if Label1.Left <1 then Label1.Left:=300

end;

end.

5. Kemudian di Run

Demikianlah cara membuat program animasi Ufo. selamat mencoba semoga berhasil.

Jangan lupa ikuti terus informasi dan berita terupdate di blog herawan09.blogspot.com. sampai bertemu di konten selanjutnya brody.

                Baca juga : Pengertian, Fungsi dan Cara Kerja IP Address.

 Membuat Garis Sepiral di delphi 7

      

                                Baca juga : Membuat Animasi Tulisan Berjalan di delphi7

Berikut Langka-langkah membuat Garis Threeleaf

1. Tambahkan 1 Button

2. lalu ketikan coding di bawah ini dengan cara klik 2 kali tombol Button

var r,d,c,x,y,theta,thetf: real;

a,xc,yc:integer;

begin

 a:=50;xc:=300;yc:=100;

 thetf:=0.0;

 d:=2*PI;

 theta:=d;

 c:=1/a;

 while (thetf<theta) do

 begin

 r:=a*thetf;

 x:=r*cos(thetf);

 y:=-r*sin(thetf);

canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clblue;

thetf:=thetf+c;

end;

end;

end.

Demikian Cara membuat garis Sepiral. selamat mencoba semoga berhasil.

 Membuat Garis Threeleaf di delphi 7

                                Baca juga : Membuat Garis Sepiral di delphi 7

Berikut Langka-langkah membuat Garis Threeleaf

1. Tambahkan 1 Button

2. lalu ketikan coding di bawah ini dengan cara klik 2 kali tombol Button

var r,d,c,x,y,theta,thetf: real;

 a,xc,yc:integer;

begin

 a:=100;xc:=300;yc:=200;

 thetf:=0.0;

d:=2*PI;

theta:=d;

c:=1/a;

while (thetf<theta) do

begin

 r:=a*cos(3*thetf);

 x:=r*cos(thetf);

 y:=-r*sin(thetf);

 canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clblue;

 thetf:=thetf+c;

end;

end;

end.

Demikian Cara membuat garis Threeleaf. selamat mencoba semoga berhasil.

        Membuat Program Ufo di delphi 7

Baca juga : Membuat Garis Threeleaf di delphi 7

Berikut Merupakan Langkah-langkah membua program animasi Ufo di delphi 7 :

1. Siapkan 1 Tpanel

2. 1 Timer

3. 1. shape/bentuk ofal 

4. Kemudian  Masukan Coding di bawah ini:

klik 2 kali pada Timer lalu masukan coding

procedure TForm1.Timer1Timer(Sender: TObject); 

var x,y,pencacah:integer; 

begin randomize;

 x:=random(panel1.width);

 y:=random(panel1.height); 

pencacah:=random(2);

 x:=x+1;y:=y+1; if pencacah=1 then begin

 if ((ufo.left)<=(panel1.Width-ufo.Width)) then

 ufo.left:=ufo.left+trunc(10*sin(x/y)) 

else 

ufo.left:=ufo.left-trunc(10*cos(x/y));

 if ((ufo.top)<=(panel1.height-ufo.height)) then

 ufo.top:=ufo.top+trunc(10*sin(y/x)) 

else ufo.top:=ufo.top-trunc(10*cos(y/x)); 

end;

 if pencacah=0 then if (ufo.left>0) then if (ufo.top>0) then

 begin

 if ((ufo.left)<=(panel1.Width-ufo.Width)) then 

ufo.left:=ufo.left-trunc(10*sin(x/y)) else ufo.left:=ufo.left-trunc(10*cos(x/y));

 if ((ufo.top)<=(panel1.height-ufo.height)) then

 ufo.top:=ufo.top-trunc(10*sin(y/x)) else ufo.top:=ufo.top-trunc(10*cos(y/x));

 end; 

end;

 end.

Demikianlah cara membuat program animasi Ufo. selamat mencoba semoga berhasil.

Jangan lupa ikuti terus informasi dan berita terupdate di blog herawan09.blogspot.com. sampai bertemu di konten selanjutnya brody.